home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / program func.src (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  2KB  |  95 lines
  1. 10 SYS700
  2. 20 .OPT P,OO
  3. 30 *= $C000
  4. 40 NOKEYS = $C6
  5. 50 INKEY = $D7
  6. 60 IRQVEC = $0314
  7. 70 IRQRTN = $EA31
  8. 71 BUFFER = $0277
  9. 80 SEI
  10. 90 LDX #<NEWIRQ
  11. 100 LDY #>NEWIRQ
  12. 110 STX IRQVEC
  13. 120 STY IRQVEC+1
  14. 130 CLI
  15. 140 RTS
  16. 150 NEWIRQ PHA:TXA:PHA:TYA:PHA
  17. 160 LDA INKEY
  18. 170 CMP #133
  19. 180 BEQ F1START
  20. 190 CMP #137
  21. 200 BEQ F2START
  22. 210 CMP #134
  23. 220 BEQ F3START
  24. 230 CMP #138
  25. 235 BEQ F4START
  26. 240 CMP #135
  27. 250 BEQ F5START
  28. 260 CMP #139
  29. 270 BEQ F6START
  30. 280 CMP #136
  31. 290 BNE NEXT1
  32. 295 JMP F7START
  33. 300 NEXT1 CMP #140
  34. 310 BNE NEXT2
  35. 315 JMP F8START
  36. 320 NEXT2 JMP MOVEON1
  37. 330 F1START LDX #0
  38. 340 LOOP1 LDA F1,X
  39. 350 CMP #0:BNE NEXT3:JMP MOVEON
  40. 355 NEXT3 STA BUFFER,X
  41. 360 INX:CPX #10:BNE LOOP1
  42. 365 JMP MOVEON
  43. 370 F2START LDX #0
  44. 380 LOOP2 LDA F2,X
  45. 390 CMP #0:BNE NEXT4:JMP MOVEON
  46. 400 NEXT4 STA BUFFER,X
  47. 405 INX:CPX #10:BNE LOOP2
  48. 410 JMP MOVEON
  49. 420 F3START LDX #0
  50. 430 LOOP3 LDA F3,X
  51. 440 CMP #0:BEQ MOVEON
  52. 450 STA BUFFER,X
  53. 455 INX:CPX #10:BNE LOOP3
  54. 460 JMP MOVEON
  55. 470 F4START LDX #0
  56. 480 LOOP4 LDA F4,X
  57. 490 CMP #0:BEQ MOVEON
  58. 500 STA BUFFER,X
  59. 505 INX:CPX #10:BNE LOOP4
  60. 510 JMP MOVEON
  61. 520 F5START LDX #0
  62. 530 LOOP5 LDA F5,X
  63. 540 CMP #0:BEQ MOVEON
  64. 550 STA BUFFER,X
  65. 560 INX:CPX #10:BNE LOOP5
  66. 570 JMP MOVEON
  67. 580 F6START LDX #0
  68. 590 LOOP6 LDA F6,X
  69. 600 CMP #0:BEQ MOVEON
  70. 610 STA BUFFER,X
  71. 620 INX:CPX #10:BNE LOOP6
  72. 630 JMP MOVEON
  73. 640 F7START LDX #0
  74. 650 LOOP7 LDA F7,X
  75. 660 CMP #0:BEQ MOVEON
  76. 670 STA BUFFER,X
  77. 680 INX:CPX #10:BNE LOOP7
  78. 690 JMP MOVEON
  79. 700 F8START LDX #0
  80. 710 LOOP8 LDA F8,X
  81. 720 CMP #0:BEQ MOVEON
  82. 730 STA BUFFER,X
  83. 740 INX:CPX #10:BNE LOOP8
  84. 1000 MOVEON STX NOKEYS
  85. 1010 MOVEON1 PLA:TAY:PLA:TAX:PLA
  86. 1020 JMP IRQRTN
  87. 1030 F1 .ASC "RUN":.BYTE13,0,0,0,0,0,0
  88. 1040 F2 .ASC "          "
  89. 1050 F3 .ASC "          "
  90. 1060 F4 .ASC "          "
  91. 1070 F5 .ASC "          "
  92. 1080 F6 .ASC "          "
  93. 1090 F7 .ASC "          "
  94. 1095 F8 .ASC "          "
  95.